home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / serc.rep < prev    next >
Text File  |  1995-03-23  |  2KB  |  75 lines
  1. Article 2023 of comp.sys.handhelds:
  2. Path: en.ecn.purdue.edu!noose.ecn.purdue.edu!samsung!dali.cs.montana.edu!milton!uw-beaver!Teknowledge.COM!unix!hplabs!hp-pcd!hpcvra!rnews!hpcvbbs!akcs.kevin
  3. From: akcs.kevin@hpcvbbs.UUCP (Kevin Jessup)
  4. Newsgroups: comp.sys.handhelds
  5. Subject: Search & Replace
  6. Keywords: hp48sx
  7. Message-ID: <27275997-3d8comp.sys.handhelds@hpcvbbs.UUCP>
  8. Date: 25 Oct 90 21:40:18 GMT
  9. Lines: 61
  10.  
  11. Here is a program titled SRCHREPL (search and replace).
  12.  
  13. The original was by Alan Weis.
  14.  
  15. Inputs:    Level 3:    string
  16.            Level 2:    search string
  17.            Level 1:    replace string
  18.  
  19. Outputs:   Level 1:    modified string from level 3
  20.  
  21. All occurances of the level 2 string were replaced by the
  22. level 1 string.  At least thats how it was supposed to work.
  23.  
  24. Actually, only the first character of the string in level
  25. 2 was replaced with the level 1 string.
  26.  
  27. Example:           Level 3:    "123ABC456"
  28.                    Level 2:    "ABC"
  29.                    Level 1:    "TEST"
  30.  
  31. Actual Result:     Level 1:    "123TESTBC456"
  32. Desired Result:    Level 1:    "123TEST456"
  33.  
  34. The "BC" should have cut along with the "A".
  35.  
  36. This version corrects the problem.  To strip characters
  37. from the original, just place a null string, "", on
  38. level 1.  Note that MULTI is required.  It is listed here
  39. as well if you don't already have it.  Apologies to ALAN or
  40. someone else if a corrected and/or faster version has
  41. already been posted!
  42.  
  43. SRCHREPL
  44. \<< OVER SIZE \-> x y s
  45.   \<<
  46.     \<< DUP
  47.       IF x POS DUP
  48.       THEN DUP2 1 -
  49. 1 SWAP SUB 3 ROLLD
  50. s + OVER SIZE SUB y
  51. SWAP + +
  52.       ELSE DROP
  53.       END
  54.     \>> MULTI
  55.   \>>
  56. \>>
  57.  
  58. MULTI
  59. \<< \-> p
  60.   \<<
  61.     DO DUP p EVAL
  62.     UNTIL DUP ROT
  63. SAME
  64.     END
  65.   \>>
  66. \>>
  67.  
  68. Kevin Jessup
  69. Marquette Electronics
  70. Milwaukee, WI
  71. (414)362-2020
  72. **************END***************
  73.  
  74.  
  75.